home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1984 May
/
1984-05.d64
/
mind boggle_vic
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
3KB
|
107 lines
1 print"[147]mind boggle":clr
2 for t= 1 to 2000:next
3 dimc(4),g(4)
4 s1=36875:s2=s1+1:pokes1+3,15:pokes1+4,120:x=0
5 print"[147]"
6 print" [144] 1[146] 2[146] 3[146] [159] 4[146] [156] 5[146] 6[146][144]"
7 print"[144]i choose 4 colors now":forl=1to100:pokes2,int(rnd(1)*128)+128:form=1to10
8 nextm:nextl:pokes2,0:gosub106
9 a$="123456":r=int(rnd(1)*6)+1:a1$=mid$(a$,r,1):a1=val(a1$)
10 r=int(rnd(1)*6)+1:a2$=mid$(a$,r,1):ifa1$=a2$then10
11 a2=val(a2$)
12 r=int(rnd(1)*6)+1:a3$=mid$(a$,r,1):ifa1$=a3$ora2$=a3$then12
13 a3=val(a3$)
14 r=int(rnd(1)*6)+1:a4$=mid$(a$,r,1):ifa1$=a4$ora2$=a4$ora3$=a4$then14
15 a4=val(a4$)
16 x$="":pokes1,135:forl=1to100:nextl:pokes1,0:input"select colors";x$
17 iflen(x$)<>4thengosub106:goto93
18 fore=1to4:v=val(mid$(x$,e,1))
19 ifv<1orv>6thengosub106:goto93
20 nexte
21 x=x+1:b=0:w=0:aa$=a1$+a2$+a3$+a4$
22 forj=1to4
23 g(j)=val(mid$(x$,j,1))
24 c(j)=val(mid$(aa$,j,1))
25 ifg(j)=c(j)thenb=b+1:g(j)=0:c(j)=0
26 nextj
27 forj=1to4:ifc(j)=0then33
28 h=0:fork=1to4
29 ifc(j)=0then32
30 ifc(j)<>g(k)then32
31 h=1:g(k)=0:c(j)=0
32 nextk:w=w+h
33 nextj
34 onxgoto35,36,37,38,39,40,41,42,43,44
35 print" 1 ";:goto45
36 print" 2 ";:goto45
37 print" 3 ";:goto45
38 print" 4 ";:goto45
39 print" 5 ";:goto45
40 print" 6 ";:goto45
41 print" 7 ";:goto45
42 print" 8 ";:goto45
43 print" 9 ";:goto45
44 print"10 ";
45 x1=val(left$(x$,1)):x2=val(mid$(x$,2,1)):x3=val(mid$(x$,3,1)):x4=val(right$(x$,1))
46 p=0:t=0
47 p=p+1:onx1goto51,52,53,54,55,56
48 p=p+1:onx2goto51,52,53,54,55,56
49 p=p+1:onx3goto51,52,53,54,55,56
50 p=p+1:onx4goto51,52,53,54,55,56
51 print"[144] [146] ";:pokes2,135:goto57
52 print" [146] ";:pokes2,159:goto57
53 print" [146] ";:pokes2,175:goto57
54 print"[159] [146] ";:pokes2,191:goto57
55 print"[156] [146] ";:pokes2,201:goto57
56 print" [146] ";:pokes2,209:goto57
57 forl=1to99:nextl:pokes2,0:forl=1to250:nextl:onpgoto48,49,50
58 ontgoto79,80,81,82
59 print" ";:ifb=0then66
60 gosub91
61 onbgoto62,63,64,65
62 print"[144][209]";:goto66
63 print"[144][209][209]";:goto66
64 print"[144][209][209][209]";:goto66
65 print"[144][209][209][209][209]";:goto95
66 ifw=0then73
67 gosub92
68 onwgoto69,70,71,72
69 print"[144][209][146]":goto73
70 print"[144][209][209][146]":goto73
71 print"[144][209][209][209][146]":goto73
72 print"[144][209][209][209][209][146]"
73 print"[144]":print" "
74 print""
75 ifx<>10then16
76 forl=1to15:form=200to220+l*2:pokes2,m:nextm:nextl:pokes2,0
77 print"":print" ";
78 t=t+1:ona1goto51,52,53,54,55,56
79 t=t+1:ona2goto51,52,53,54,55,56
80 t=t+1:ona3goto51,52,53,54,55,56
81 t=t+1:ona4goto51,52,53,54,55,56
82 print" ":print"[144]correct colors return"
83 ifpeek(197)<>15then83
84 gett$:print"[147] too bad you missed!":print" 10 tries is enough."
85 forl=1to6:pokes2,160:form=1to400:nextm:pokes2,0:form=1to400:nextm:nextl
86 gett$:print"[147][144] want to play again?":print:print:print" yes or no?"
87 ifpeek(197)=11thengett$:goto4
88 ifpeek(197)=28thenpoke36879,27:goto90
89 goto87
90 gett$:print"[147] [158]chicken!!":print:print:end
91 forl=200to254:pokes2,l:nextl:pokes2,0:return
92 forl=200to128step-1:pokes1,l:nextl:pokes1,0:return
93 print"illegal input!":pokes1+2,200:forl=1to500:nextl:pokes1+2,0
94 forl=1to999:nextl:gosub106:goto16
95 print:print:print" you w i n !! return"
96 form=250to240step-1:pokes2,m:nextm:form=240to250:pokes2,m:nextm:pokes2,0
97 ifpeek(197)<>15then96
98 print"[147]"
99 ifx=1thenprint" lucky guess!":goto104
100 ifx=2orx=3thenprint" expert!!!":goto104
101 ifx=4orx=5orx=6thenprint" pretty good!":goto104
102 ifx=7orx=8thenprint"[156] so so!":goto104
103 print" you barely got it!"
104 forl=1to50:form=248to253:pokes2,m:nextm:form=253to248step-1:pokes2,m:nextm:nextl
105 pokes2,0:goto86
106 print"[145][145]":print" ":print"[145][145]":return